﻿<!--#include file="mymin.asp"-->
<card title="修改友链类别"><p>
<%
dim id,classs,pid,br
id=request.querystring("id")
classs=Trim(Request.Form("class"))
pid=Request.Form("pid")
br=Request.Form("br")
if classs="" then 
	Noright("类别名称不能为空！")
else
	IF Not IsEmpty(Pid) and Not IsNumeric(Pid) Then
		Noright("排序必须是数字！")
	else
		classsave
	end if
end if

w "<a href='Link_class.asp?sid="&sid&"'>[分类管理]</a><br/><a href='mymin_index.asp?sid="&sid&"'>[友链后台]</a>"
Call Last

sub classsave()
	dim Rs,Sql
	Set RS=server.createobject("adodb.recordset")
	Sql="select * from 74hu_linkc Where classid="&id
	RS.open sql,myconn,1,3
	If Not rs.eof Then
		RS("class")=classs
		RS("pid")=pid
		RS("br")=br
		RS.update()
		w "修改友链类别成功<br/>"
	End If
	rs.close
	Set rs=Nothing
	w "修改友链类别成功<br/>"
End Sub

sub Noright(str)
	w str&"<br/><a href='editclass.asp?id="&id&"&amp;sid="&sid&"'>返回修改</a><br/>"
End Sub

%>